home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / medicine boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  891b  |  24 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 20 gosub70
  3. 30 print"[144]":print""
  4. 40 print "load";chr$(34);f$;chr$(34)","dv
  5. 50 ifpeek(56)<160thenpoke56,160:clr:print"sys65418:run":goto60
  6. 55 print"run"
  7. 60 poke631,13:poke632,13:poke198,2:end
  8. 70 print"[147]":poke53280,0:poke53281,0:iffthenreturn
  9. 80 poke214,10:print"[145]";
  10. 85 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  11. 90 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  12. 100 fori=217to242:pokei,peek(i)or128:next
  13. 110 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  14. 120 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  15. 130 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
  16. 140 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
  17. 150 poke214,14:print"[145][155]";
  18. 160 fori=1to5:reada$:gosub170:next:goto180
  19. 170 printspc(20-len(a$)/2)""a$:a$="":return
  20. 180 f$="medicine box":poke214,24:print"[145]"spc(13)"[158][204] [207] [193] [196] [201] [206] [199]":return
  21. 190 data"[205][160][197][160][196][160][201][160][195][160][201][160][206][160][197] [160][160][194][160][207] [216]","by [202]eff [202]ones
  22. 200 [131]"(NULL)1.0 (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #83","(NULL)ubscriptions 1-800-831-2694"
  23. 210 [131]"lenopyright (len) 1991 (NULL)oftdisk"
  24.